home *** CD-ROM | disk | FTP | other *** search
/ Programming Sound Cards / Programming Sound Cards.iso / sound_36 / pb-sb120.exe / DEMO.BAS < prev    next >
BASIC Source File  |  1995-01-20  |  5KB  |  126 lines
  1. '****************************************************************************
  2. '
  3. '           -=≡ Sound Blaster(tm) Unit für PowerBasic 3.0c ≡=-
  4. '                              Version 1.20
  5. '
  6. '              >>>   Demonstrationsprogramm zur Unit   <<<
  7. '
  8. '
  9. '  entwickelt: 1994/95 von Th.Gohel
  10. '
  11. '                              Fido:   2:2410/308.12
  12. '                              BasNet:  130:1313/102
  13. '                              Internet: Th.Gohel@wibo.berlinet.in-berlin.de
  14. '
  15. '
  16. '  Achtung:  Eventuell läuft die Unit nicht in der IDE, da unter anderem
  17. '            nicht die INI-Datei gefunden wird oder einfach der Speicher
  18. '            innerhalb der IDE nicht ausreicht.
  19. '            Bitte kompilieren Sie das Programm und starten es außerhalb
  20. '            der IDE als EXE-Datei.
  21. '
  22. '  Hinweis:  Zur wirkungsvollen Demonstration wurde von mir eine Effect-Unit
  23. '            beigelegt, welche diverse Routinen zur besseren Darstellung
  24. '            der Unit enthält. Diese Routinen sind sehr leicht zu erkennen,
  25. '            da sie alle prinzipiell per CALL aufgerufen werden.
  26. '
  27. '
  28. '****************************************************************************
  29.  
  30. $COMPILE EXE "DEMO-NEU.EXE"
  31. $LIB ALL ON
  32. $INCLUDE "DEFFECT.H"                  
  33.                                       :' Headerdatei für die Effekte
  34. $INCLUDE "SBLASTER.H"
  35.                                       :' Unit einlinken sowie Variablen
  36.                                       :' und Funktionen deklarieren,
  37.                                       :' eventuell noch den Pfad zur
  38.                                       :' zur SBLASTER.PBU angeben oder
  39.                                       :' in PB ein Unit-Verzeichnis ein-
  40.                                       :' richten,
  41. ON ERROR GOTO FEHLER                  :' kann ja immer passieren
  42. SBIniFile$ = "SBLASTER.INI"           :' Name der INI-Datei
  43. SBDrvFile$ = "SBLASTER.DRV"           :' Name der Libary
  44.  
  45.  
  46. CALL Intro                            :' DEFFECT.PBU
  47. PRINT "Sound Blaster initialisieren (J/RETURN) oder Speakerroutine nutzen (S) ??";
  48. A$ = UCASE$(INPUT$(1))
  49. PRINT
  50. PRINT
  51.  
  52. IF A$ <> "S" THEN
  53.     SBInit(32)                        :' Init mit Vocbuffer 32*4096 Bytes
  54.     IF SBError% <> 0 THEN GOTO FEHLER
  55. END IF
  56. A$=""
  57.  
  58. MixerEinstellung:
  59.         SBVoiceVolume 32,32           :' Voice Lautstärke einstellen
  60.         SBFMVolume 28,28              :' MIDI Lautstärke einstellen
  61.  
  62. HauptDemo:
  63.         SBVoicePlay("demo1.voc")      :' Play Voc-File
  64.         SBVoiceWait                   :' Warten auf Ende der Voc-Datei
  65.         DELAY 1                       :' 1 Sekunde warten
  66.         SBVoicePlay("demo2.voc")      :' Play Voc-File
  67.         CALL LoadPCX16("demo.pcx")
  68.                                       '  DEFFECT.PBU
  69.         CALL UhrZeit("STARDATE")      :' DEFFECT.PBU
  70.         LOCATE 16, 9
  71.         PRINT " -=≡   PowerBasic 3.0c  -  The Next BASIC Generation !!!!   ≡=- "
  72.         COLOR 14
  73.         SBMidiPlay("demo.mid")        :' Play MIDI-File
  74.         SBVoiceWait                   :' Warten auf Ende der Voc-Datei
  75.         SBVoicePlay("demo3.voc")      :' Play Voc-File
  76.         SBVoiceWait                   :' Warten auf Ende der Voc-Datei
  77.         DELAY 2                       :' 2 Sekunden warten
  78.         SBVoiceVolume 32,1            :' Voice Lautstärke einstellen
  79.         SBVoicePlay("demo4.voc")      :' Play Voc-File
  80.         CALL LaufSchrift1             :' DEFFECT.PBU
  81.         SBVoiceVolume 32,32           :' Voice Lautstärke einstellen
  82.         FOR I%=1 TO 3                 :' Applaus 3x mal spielen
  83.             SBVoicePlay("demo5.voc")  :' Play Voc-File
  84.             CALL LaufSchrift1         :' DEFFECT.PBU
  85.         NEXT I%                       :' und nochmal 3x
  86.         LOCATE 17, 1
  87.         DO WHILE LEN(A$) = 0          :' warten auf User
  88.                                       '  Midi-File solange spielen bis User
  89.                                       '  eine Taste drückt
  90.             IF SBMidiStatus% = 0 AND SBAktiv% = 1 THEN
  91.                 SBMidiPlay("demo.mid")
  92.                                       '  und noch mal ein Sample
  93.                 SBVoicePlay("demo1.voc")
  94.             END IF
  95.             A$=INKEY$                 :' Demo genug betrachtet??
  96.             CALL LaufSchrift2         :' DEFFECT.PBU
  97.         LOOP
  98.         SBVoicePlay("sbsetup.voc")    :' Play Voc-File
  99.         CALL LaufSchrift1             :' DEFFECT.PBU
  100.         SBVoicePlay("demo6.voc")      :' Play Voc-File
  101.         SBMidiStop                    :' MIDI Wiedergabe stoppen
  102.         CALL LaufSchrift1             :' DEFFECT.PBU
  103. ENDE:
  104.         SBDeInstall                   :' SB deinstallieren (sehr wichtig!!)
  105.         COLOR ,,0
  106.         PRINT
  107.         END                           :' Programm beenden
  108.  
  109. '***************************************************************************
  110. '                Hier sollten Sie nicht hingelangen ;-)
  111. '***************************************************************************
  112.  
  113. FEHLER:
  114.     PRINT
  115.     PRINT
  116.     PRINT "Es ist ein Fehler aufgetreten, Programm beendet (siehe 'ERROR.TXT')"
  117.     PRINT
  118.     PRINT "PowerBasic Code   : ";Err
  119.     PRINT "SB-Unit Fehlercode: ";SBError%
  120.     SELECT CASE SBError%
  121.                 CASE 2009: PRINT: PRINT "Fehler:    kein SB Environment oder Ini-Datei (bitte SBSETUP ausführen!!)"
  122.                 CASE 2040: PRINT: PRINT "Fehler:    Treiberbibliothek nicht gefunden (bitte SBSETUP ausführen!!)"
  123.     END SELECT
  124.     SBDeInstall
  125.     END
  126.